home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / G-Games / (c)gc.d64 / shootout.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  206 lines
  1. 0 POKE53272,21:PRINTCHR$(8):GOSUB39990
  2. 1 PRINT"[147]":POKE53281,0:POKE53280,9:E1=100:E2=E1:V=53248:SS=34
  3. 2 FORT=40TO999STEP40:POKE1024+T,0:POKE55296+T,6:NEXT
  4. 3 FORT=73TO999STEP40:POKE1024+T,0:POKE55296+T,6:NEXT
  5. 4 FORQ=41TO73:POKE1024+Q,0:POKE55296+Q,6:NEXT
  6. 5 FORQ=960TO993:POKE1024+Q,0:POKE55296+Q,6:NEXT
  7. 6 Q=0:FORT=54272TO54292:POKET,0:NEXT:E1$=STR$(E1):E2$=STR$(E2)
  8. 9 PRINT" [158]STRENGTH:";E2$;"%     [158]STRENGTH:";E1$;"%"
  9. 10 POKE2040,192:POKE2041,193:POKE2042,194:POKE2043,195:POKE2044,196:POKE2045,197
  10. 11 POKE2046,198:POKE2047,199:X1=255:X2=40:Y1=80:Y2=210
  11. 12 FORA=0TO63:READX:POKE12288+A,X:NEXT
  12. 13 FORA=0TO63:READX:POKE12352+A,X:NEXT
  13. 14 FORA=0TO63:READX:POKE12416+A,X:NEXT
  14. 15 FORA=0TO63:READX:POKE12480+A,X:NEXT
  15. 16 FORA=0TO63:READX:POKE12544+A,X:NEXT
  16. 17 FORA=0TO63:READX:POKE12608+A,X:NEXT
  17. 18 FORA=0TO63:READX:POKE12672+A,X:NEXT
  18. 19 FORA=0TO63:READX:POKE12736+A,X:NEXT
  19. 20 POKEV+39,2:POKEV+40,14:POKEV+41,14:POKEV+42,5:POKEV+43,7:POKEV+44,2
  20. 21 POKEV+45,4:POKEV+46,2
  21. 25 PRINT"";TAB(10);"SPRITE SHOOTOUT":FORD=1TO1250:NEXT
  22. 26 PRINT"[145]";TAB(10);"                  "
  23. 27 POKEV+21,SS
  24. 30 POKEV+2,X1:POKEV+3,Y1:POKEV+10,X2:POKEV+11,Y2
  25. 32 A2=15-(PEEK(56321)AND15):A1=15-(PEEK(56320)AND15)
  26. 33 J1=PEEK(56320)AND16
  27. 34 J2=PEEK(56321)AND16
  28. 35 IFH1=1THEN37
  29. 36 S1=X1-24:S2=Y1-3
  30. 37 IFH2=1THEN39
  31. 38 S3=X2+12:S4=Y2+2
  32. 39 IFJ2=0ANDH2<>1THENH2=1:SS=SS+64:POKEV+21,SS
  33. 40 IFJ1=0ANDH1<>1THENH1=1:SS=SS+8:POKEV+21,SS
  34. 41 POKEV+6,S1:POKEV+7,S2
  35. 42 POKEV+12,S3:POKEV+13,S4
  36. 43 IFA1=1ANDY1>70THENY1=Y1-4.6
  37. 44 IFA1=8ANDX1<254THENX1=X1+4.62
  38. 45 IFA1=2ANDY1<215THENY1=Y1+4.64
  39. 46 IFA1=4ANDX1>165THENX1=X1-4.66
  40. 48 IFA2=1ANDY2>70THENY2=Y2-4.68
  41. 49 IFA2=8ANDX2<130THENX2=X2+4.7
  42. 50 IFA2=2ANDY2<215THENY2=Y2+4.72
  43. 51 IFA2=4ANDX2>40THENX2=X2-4.74
  44. 53 IFCN=1ANDA1<>0THENPOKE2041,194
  45. 54 IFCN=2ANDA1<>0THENPOKE2041,193
  46. 55 IFCN=2THENCN=0
  47. 56 IFCM=1ANDA2<>0THENPOKE2045,197
  48. 57 IFCM=2ANDA2<>0THENPOKE2045,199
  49. 58 IFCM=2THENCM=0
  50. 59 IFH1=1THENS1=S1-15:IFS1<35THENSS=SS-8:POKEV+21,SS:H1=0
  51. 60 IFH2=1THENS3=S3+15:IFS3>249THENSS=SS-64:POKEV+21,SS:H2=0
  52. 61 CM=CM+1:CN=CN+1
  53. 62 POKEV0,15
  54. 69 POKEW0,33:POKEH0,INT(200*RND(1))
  55. 70 XX=PEEK(V+30):IFXX=106THEN200
  56. 71 IFXX=66THENFORS=1TO25:POKEV+40,1:POKEV+40,14:NEXT:E1=E1-20:GOSUB2000:GOTO100
  57. 72 IFXX=40THENFORS=1TO25:POKEV+44,5:POKEV+44,02:NEXT:E2=E2-20:GOSUB2000:GOTO100
  58. 99 GOTO30
  59. 100 E1$=STR$(E1):E2$=STR$(E2):REM SCORING
  60. 101 PRINT"                                        [157]":E1$=E1$+"%":E2$=E2$+"%"
  61. 102 IFE1=0ANDE2=0THENPRINT"    PLAYERS 1 & 2 HAVE PERISHED   ":GOTO1000
  62. 103 IFE1=0THENPRINT"       PLAYER 2 HAS PERISHED      ":GOTO1000
  63. 104 IFE2=0THENPRINT"       PLAYER 1 HAS PERISHED      ":GOTO1000
  64. 107 PRINT" [158]STRENGTH:"E2$;SPC(5);"[158]STRENGTH:"E1$
  65. 109 GOTO30
  66. 200 FORS=1TO25:POKEV+40,1:POKEV+44,5:POKEV+40,14:POKEV+44,02:NEXT
  67. 201 E1=E1-20:E2=E2-20:GOSUB2000:GOTO100
  68. 1000 IFE1=0ANDE2=0THEN1025
  69. 1001 IFE1=0THENFORS=1TO50:POKEV+40,2:POKEV+40,7:POKEV+40,8:NEXT
  70. 1002 IFE1=0THENSS=SS-1:POKEV+21,SS:POKEV,X1:POKEV+1,Y1:POKE198,0:GOTO10000
  71. 1003 IFE2=0THENFORS=1TO50:POKEV+44,1:POKEV+44,5:POKEV+44,14:NEXT
  72. 1004 IFE2=0THENSS=SS-16:POKEV+21,SS:POKEV+8,X2:POKEV+9,Y2:POKE198,0:GOTO10000
  73. 1025 FORS=1TO25:POKEV+40,1:POKEV+44,5:POKEV+40,14:POKEV+44,02:NEXT
  74. 1026 POKEV+21,17:POKEV,X1:POKEV+1,Y1:POKEV+8,X2:POKEV+9,Y2:POKE198,0:GOTO10000
  75. 1999 END:GOTO1999
  76. 2000 W9=54283:A9=54284:H9=54280:L9=54279
  77. 2002 FORX9=0TO15:POKEV0,X9:POKEW9,129:POKEA9,15:POKEH9,255:POKEL9,200:NEXT
  78. 2005 POKEW9,0:POKE90,0:RETURN
  79. 10000 FORX0=0TO15:POKEV0,X0:POKEW0,129:POKEA0,15:POKEH0,9:POKEL0,200:NEXT
  80. 10005 POKEW0,0:POKEA0,0:FORT=1TO1500:NEXT
  81. 10006 POKEV+21,0:PRINT"[147]":PRINT"PLAY AGAIN?"
  82. 10007 GETA$:IFA$="Y"THENCLR:GOTO40009
  83. 10008 IFA$<>"N"THEN10007
  84. 10011 END:GOTO100011
  85. 30000 DATA 0
  86. 30010 DATA 0,0,0,0,0
  87. 30020 DATA 0,32,192,0,123
  88. 30030 DATA 224,0,63,252,0
  89. 30040 DATA 255,248,1,255,224
  90. 30050 DATA 1,255,240,0,127
  91. 30060 DATA 248,0,63,254,0
  92. 30070 DATA 127,252,1,255,248
  93. 30080 DATA 7,255,240,1,255
  94. 30090 DATA 252,0,255,248,0
  95. 30100 DATA 127,240,0,251,248
  96. 30110 DATA 0,243,252,0,65
  97. 30120 DATA 136,0,0,0,0
  98. 30130 DATA 0,0,0
  99. 30140 DATA 0,15,0
  100. 30150 DATA 0,31,128,0,31
  101. 30160 DATA 128,0,15,128,0
  102. 30170 DATA 7,0,252,15,128
  103. 30180 DATA 31,255,192,13,255
  104. 30190 DATA 240,0,63,248,0
  105. 30200 DATA 31,152,0,31,152
  106. 30210 DATA 0,31,152,0,63
  107. 30220 DATA 128,0,59,128,0
  108. 30230 DATA 115,128,0,113,240
  109. 30240 DATA 0,112,248,0,56
  110. 30250 DATA 24,0,112,8,0
  111. 30260 DATA 224,0,0,0,0
  112. 30270 DATA 0
  113. 30280 DATA 0,15,0,0,31
  114. 30290 DATA 128,0,31,128,0
  115. 30300 DATA 15,128,0,7,0
  116. 30310 DATA 252,15,128,31,255
  117. 30320 DATA 192,13,255,240,0
  118. 30330 DATA 63,248,0,31,152
  119. 30340 DATA 0,31,152,0,31
  120. 30350 DATA 152,0,31,128,0
  121. 30360 DATA 59,128,0,115,128
  122. 30370 DATA 0,227,128,0,225
  123. 30380 DATA 128,1,193,128,3
  124. 30390 DATA 131,128,7,135,128
  125. 30400 DATA 0,0,0,0
  126. 30410 DATA 0,0
  127. 30420 DATA 0,0,0,0,0
  128. 30430 DATA 0,0,0,0,0
  129. 30440 DATA 0,0,0,0,0
  130. 30450 DATA 0,0,0,0,0
  131. 30460 DATA 0,0,0,255,255
  132. 30470 DATA 0,0,0,0,0
  133. 30480 DATA 0,0,0,0,0
  134. 30490 DATA 0,0,0,0,0
  135. 30500 DATA 0,0,0,0,0
  136. 30510 DATA 0,0,0,0,0
  137. 30520 DATA 0,0,0,0,0
  138. 30530 DATA 0,0,0,0,0
  139. 30540 DATA 0,0,0,0
  140. 30550 DATA 0,0,0,0
  141. 30560 DATA 0,0,0,0,32,192
  142. 30570 DATA 0,123,224,0,63
  143. 30580 DATA 252,0,255,248,1
  144. 30590 DATA 255,224,1,255,240
  145. 30600 DATA 0,127,248,0,63
  146. 30610 DATA 254,0,127,252,1
  147. 30620 DATA 255,248,7,255,240
  148. 30630 DATA 1,255,252,0,255
  149. 30640 DATA 248,0,127,240,0
  150. 30650 DATA 251,248,0,243,252
  151. 30660 DATA 0,65,136,0,0
  152. 30670 DATA 0,0,0,0,0,0
  153. 30690 DATA 0,0,0,198,0
  154. 30700 DATA 0,238,0,0,254
  155. 30710 DATA 0,64,76,0,96
  156. 30720 DATA 254,0,49,252,0
  157. 30730 DATA 51,248,28,49,241
  158. 30740 DATA 190,51,255,224,97
  159. 30750 DATA 255,224,99,249,190
  160. 30760 DATA 127,252,28,127,254
  161. 30770 DATA 0,63,255,128,7
  162. 30780 DATA 255,192,3,195,192
  163. 30790 DATA 15,129,224,62,0
  164. 30800 DATA 248,100,0,72,124
  165. 30810 DATA 0,0,0
  166. 30820 DATA 0,0,0
  167. 30830 DATA 0,0,0,0,0
  168. 30840 DATA 0,0,0,0,0
  169. 30850 DATA 0,0,0,0,0
  170. 30860 DATA 0,0,0,0,1
  171. 30870 DATA 0,0,255,255,0
  172. 30880 DATA 1,0,0,0,0
  173. 30890 DATA 0,0,0,0,0
  174. 30900 DATA 0,0,0,0,0
  175. 30910 DATA 0,0,0,0,0
  176. 30920 DATA 0,0,0,0,0
  177. 30930 DATA 0,0,0,0,0
  178. 30940 DATA 0,0,0,0,0
  179. 30950 DATA 0
  180. 30960 DATA 0,130,0,0,198
  181. 30970 DATA 0,0,238,0,0
  182. 30980 DATA 124,0,32,100,0
  183. 30990 DATA 96,254,0,193,252
  184. 31000 DATA 0,195,248,28,193
  185. 31010 DATA 241,190,195,255,224
  186. 31020 DATA 97,255,224,99,249
  187. 31030 DATA 190,127,252,28,127
  188. 31040 DATA 254,0,63,255,128
  189. 31050 DATA 7,255,192,3,195
  190. 31060 DATA 192,3,193,192,15
  191. 31070 DATA 131,192,9,2,64
  192. 31080 DATA 31,3,224,0
  193. 31090 REM"[141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141][141]"
  194. 39990 POKE52,48:POKE56,48:CLR
  195. 40001 PRINT"[147]":POKE53281,0:POKE53280,4:PRINTTAB(10)"[158] ELIMINATING SPARKLE "
  196. 40002 PRINT"";TAB(11)"READY IN 30 SECONDS"
  197. 40003 POKE56334,PEEK(56334)AND254
  198. 40004 POKE1,PEEK(1)AND251
  199. 40005 FORI=0TO2047:POKEI+14336,PEEK(I+53248):NEXT
  200. 40006 POKE1,PEEK(1)OR4
  201. 40007 POKE56334,PEEK(56334)OR1
  202. 40008 POKE53272,31
  203. 40009 V0=54296:W0=54276:A0=54277:H0=54273:L0=54272
  204. 40010 POKEV0,15:POKEA0,15:POKEL0,200
  205. 40012 POKE14336,255:FORR=0TO5:POKE14337+R,129:NEXT:POKE14343,255:GOTO1
  206.